Resource Library: Multimedia/Resource Library: Multimedia.iso/hypercrd/xcmds/hyprmrg2.hqx/HyperMerge 2.02/background_2296.txt

Text File | 1989-02-26 | 11KB | 424 lines

-- background: 2296 from stack: in.02
-- bmap block id: 3222
-- flags: 0000
-- background id: 0
-- name:


-- part 1 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=383 top=104 right=121 bottom=492
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Copy & Merge
----- HyperTalk script -----
on mouseUp
  global destination,source,firstCard,numberOfCards,totalNumberOfCards
  hide message
  put "Copy cards from which stack?" into card field 1
  show card field 1
  put fileName("STAK") into source
  if source is empty then
    hide card field 1
    exit mouseUp
  end if
  hide card field 1
  answer "Do you want to copy the entire stack?" with "No" or "Yes"
  if it is "No" then
    ask "How many cards do you want to copy?"
    put it into numberOfCards
    ask "Starting with which card number? (Not ID!)"
    put it into firstCard
  else
    put "All" into numberOfCards
  end if
  put "Paste cards to end of which stack?" into card field 1
  show card field 1
  put fileName("STAK") into destination
  if destination is empty then
    hide card field 1
    exit mouseUp
  end if
  answer "Merge stacks?" with "Merge" or "Cancel"
  --give user chance to bail out
  if it = "Cancel" then
    hide card field 1
    exit mouseUp
  end if
  put "After I'm done, I'll leave you at the merged stacks." into card field 1
  set lockScreen to true
  set lockMessages to true
  set the cursor to 4
  go stack source
  if numberOfCards is "All" then
    repeat for the number of cards
      domenu copy card
      go next card
      push card
      go last card of destination
      domenu paste card
      pop card
    end repeat
  else
    put numberOfCards into totalNumberOfCards
    subtract firstCard from totalNumberOfCards
    if the number of cards < totalNumberOfCards then
      beep
      show message
      put "You need to start again & change the number of cards!" into message
      wait for 5 seconds
      hide message
      go "HyperMerge 2.02"
      hide card field 1
      exit mouseUp
    else
      go card firstCard
      repeat for numberOfCards
        domenu copy card
        go next card
        push card
        go last card of destination
        domenu paste card
        pop card
      end repeat
    end if
  end if
  set lockScreen to false
  set lockMessages to false
  go to stack destination
  show message
  put "Merge Complete!" into message
  wait for 3 seconds
  put "You're at stack " & destination into message
end mouseUp


-- part 5 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=3 top=61 right=309 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 2304
-- line height: 16
-- part name: HyprMerge Instructions


-- part 6 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=377 top=66 right=109 bottom=433
-- title width / last selected line: 0
-- icon id / first selected line: 1000 / 1000
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Functionless Button


-- part 8 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=418 top=64 right=98 bottom=460
-- title width / last selected line: 0
-- icon id / first selected line: 22308 / 22308
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Functionless Button 2


-- part 9 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=447 top=68 right=105 bottom=505
-- title width / last selected line: 0
-- icon id / first selected line: 1000 / 1000
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button


-- part 10 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=386 top=181 right=198 bottom=495
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Cut & Merge
----- HyperTalk script -----
on mouseUp
  global destination,source,firstCard,numberOfCards,totalNumberOfCards
  hide message
  put "Cut cards from which stack?" into card field 1
  show card field 1
  put fileName("STAK") into source
  if source is empty then
    hide card field 1
    exit mouseUp
  end if
  hide card field 1
  answer "Do you want to cut the entire stack? (Delete)" with "No" or "Yes"
  if it is "No" then
    ask "How many cards do you want to cut?"
    put it into numberOfCards
    ask "Starting with which card number? (Not ID!)"
    put it into firstCard
  else
    put "All" into numberOfCards
  end if
  put "Paste cards to end of which stack?" into card field 1
  show card field 1
  put fileName("STAK") into destination
  if destination is empty then
    hide card field 1
    exit mouseUp
  end if
  answer "Merge stacks?" with "Merge" or "Cancel"
  --give user chance to bail out
  if it = "Cancel" then
    hide card field 1
    exit mouseUp
  end if
  put "After I'm done, I'll leave you at the merged stacks." into card field 1
  set lockScreen to true
  set lockMessages to true
  set the cursor to 4
  go stack source
  if numberOfCards is "All" then
    repeat for the number of cards
      domenu copy card
      go next card
      push card
      go last card of destination
      domenu paste card
      pop card
    end repeat
    go stack source
    set userLevel to 5
    wait for 60
    doMenu "Delete Stack..."
  else
    put numberOfCards into totalNumberOfCards
    subtract firstCard from totalNumberOfCards
    if the number of cards < totalNumberOfCards then
      beep
      show message
      put "You need to start again & change the number of cards!" into message
      wait for 5 seconds
      hide message
      go "HyperMerge 2.02"
      hide card field 1
      exit mouseUp
      go card firstCard
    else
      repeat for numberOfCards
        domenu cut card
        push card
        go last card of destination
        domenu paste card
        pop card
      end repeat
    end if
  end if
  set lockScreen to false
  set lockMessages to false
  go to stack destination
  show message
  put "Merge Complete!" into message
  wait for 3 seconds
  put "You're at stack " & destination into message
end mouseUp


-- part 11 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=378 top=139 right=182 bottom=434
-- title width / last selected line: 0
-- icon id / first selected line: 24463 / 24463
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Functionless Button


-- part 13 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=451 top=144 right=181 bottom=509
-- title width / last selected line: 0
-- icon id / first selected line: 1000 / 1000
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
end mouseUp



-- part 14 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=388 top=267 right=284 bottom=497
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Delete Cards
----- HyperTalk script -----
on mouseUp
  global destination,source,firstCard,numberOfCards
  hide message
  put "Delete cards from which stack?" into card field 1
  show card field 1
  put fileName("STAK") into source
  if source is empty then
    hide card field 1
    exit mouseUp
  end if
  hide card field 1
  answer "Do you want to delete the entire stack?" with "No" or "Yes"
  if it is "No" then
    ask "How many cards do you want to delete?"
    put it into numberOfCards
    ask "Starting with which card number? (Not ID!)"
    put it into firstCard
  else
    set lockscreen to true
    set lockmessages to true
    go stack source
    set userLevel to 5
    domenu Delete Stack...
    go stack "HyperMerge 2.02"
    put "Stack Deleted!" into card field 1
    show card field 1
    wait for 5 seconds
    hide card field 1
    set lockscreen to false
    set lockmessages to false
    exit mouseUp
  end if
  put numberOfCards into totalNumberOfCards
  subtract firstCard from totalNumberOfCards
  if the number of cards < totalNumberOfCards then
    beep
    show message
    put "You need to start again & change the number of cards!" into message
    wait for 5 seconds
    hide message
    go "HyperMerge 2.0"
    hide card field 1
    exit mouseUp
  else
    answer "Delete cards?" with "Delete" or "Cancel"
    --give user chance to bail out
    if it = "Cancel" then
      hide card field 1
      exit mouseUp
    end if
  end if
  put "After I'm done, I'll leave you here." into card field 1
  set lockscreen to true
  set lockmessages to true
  set the cursor to 4
  go stack source
  go card firstCard
  repeat for numberOfCards
    domenu delete card
  end repeat
  set lockScreen to false
  set lockMessages to false
  go to stack "HyperMerge 2.0"
  put "Delete Complete!" into card field 1
  show card field 1
  wait for 3 seconds
  hide card field 1
end mouseUp


-- part 17 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=451 top=231 right=268 bottom=509
-- title width / last selected line: 0
-- icon id / first selected line: 71 / 71
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button


-- part 18 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=378 top=223 right=266 bottom=434
-- title width / last selected line: 0
-- icon id / first selected line: 24463 / 24463
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Functionless Button


-- part 19 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=422 top=143 right=177 bottom=464
-- title width / last selected line: 0
-- icon id / first selected line: 22308 / 22308
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Functionless Button 2


-- part 20 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=422 top=228 right=262 bottom=464
-- title width / last selected line: 0
-- icon id / first selected line: 22308 / 22308
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Functionless Button 2